﻿Public Class consultaCatalogo
    ''--- Propiedad para ver desde que formulario accedo a la busqueda de producto
    Private mModoAcceso As String
    Public Property ModoAcceso() As String
        Get
            Return mModoAcceso
        End Get
        Set(ByVal value As String)
            mModoAcceso = value.Trim.ToUpper
        End Set
    End Property
    Private Sub consultaCatalogo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Select Case ModoAcceso
            Case "ACTUALIZA STOCK"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "ASIGNA VIDRIERA"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "VENTA INMEDIATA"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "PRESUPUESTO"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "VENTA PRESUPUESTO"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "MODI OS TECNICO"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "SORTEO"
                btnImprimir.Visible = False
                btnSeleccionar.Visible = True
            Case "INFORME CATALOGO"
                btnImprimir.Visible = True
                btnSeleccionar.Visible = False
        End Select
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub btnSeleccionar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSeleccionar.Click
        Selecciona()
    End Sub

    Sub Selecciona()
        Dim Producto As New clsCatalogo()
        Dim CatalogoDao As New daoCatalogo()
        Dim prod_id As Int32
        prod_id = Convert.ToInt32(grdCatalogo.CurrentRow.Cells.Item(0).Value)

        Producto = CatalogoDao.TraeArticulo(prod_id)
        Select Case ModoAcceso
            Case "ACTUALIZA STOCK"
                actualizarStock.txtCod.Text = Convert.ToString(Producto.Prod_Id).Trim
                actualizarStock.txtCant.Text = Convert.ToString(Producto.Cantidad).Trim
                actualizarStock.txtNom.Text = Producto.Descripcion.Trim.ToUpper
                actualizarStock.txtCosto.Text = Convert.ToString(Producto.Costo).Trim
                actualizarStock.txtMarca.Text = Producto.Marca.Trim.ToUpper
                actualizarStock.txtMod.Text = Producto.Modelo.Trim.ToUpper
                actualizarStock.txtProv.Text = Producto.Proveedor.Trim.ToUpper
                actualizarStock.txtTipo.Text = Producto.Tipo.Trim.ToUpper
                actualizarStock.txtFechaAlta.Text = Convert.ToString(Producto.Fecha_Ingreso).Trim
                actualizarStock.txtCod.Enabled = False
                actualizarStock.btnActualizar.Enabled = True
                actualizarStock.txtCod.Enabled = False

                actualizarStock.txtCant.Enabled = True
                actualizarStock.txtCosto.Enabled = True
                actualizarStock.txtMarca.Enabled = True
                actualizarStock.txtMod.Enabled = True
                actualizarStock.txtProv.Enabled = True
                actualizarStock.txtTipo.Enabled = True

                actualizarStock.btnActualizar.Enabled = True
                actualizarStock.btnConsulta.Enabled = False
                actualizarStock.Enabled = True
            Case "ASIGNA VIDRIERA"
                asigVidriera.txtCod.Text = Producto.Prod_Id.ToString.Trim
                asigVidriera.txtNom.Text = Producto.Descripcion.Trim.ToUpper
                asigVidriera.txtMarca.Text = Producto.Marca.Trim.ToUpper
                asigVidriera.txtMod.Text = Producto.Modelo.Trim.ToUpper
                asigVidriera.txtTipo.Text = Producto.Tipo.Trim.ToUpper
                asigVidriera.txtNroSerie.Text = ""

                asigVidriera.txtCod.Enabled = False
                asigVidriera.txtNom.Enabled = False
                asigVidriera.txtMarca.Enabled = False
                asigVidriera.txtMod.Enabled = False
                asigVidriera.txtTipo.Enabled = False

                asigVidriera.txtNroSerie.Enabled = True

                asigVidriera.btnAsignar.Enabled = True
                asigVidriera.btnConsulta.Enabled = False
                asigVidriera.Enabled = True
            Case "VENTA INMEDIATA"
                registrarVentaI.txtCodArticulo.Text = Convert.ToString(Producto.Prod_Id).Trim
                registrarVentaI.lblDescAticulo.Text = Producto.Descripcion.Trim.ToUpper
                registrarVentaI.lblDescAticulo.Visible = True
                registrarVentaI.btnAgregarACarrito.Enabled = True
                registrarVentaI.txtNroSerie.Text = ""
                registrarVentaI.txtNroSerie.Enabled = True

                registrarVentaI.numCantidad.Focus()
                registrarVentaI.Enabled = True
            Case "PRESUPUESTO"
                registrarPresupuesto.txtCodArticulo.Text = Convert.ToString(Producto.Prod_Id).Trim
                registrarPresupuesto.lblDescAticulo.Text = Producto.Descripcion.Trim.ToUpper
                registrarPresupuesto.lblDescAticulo.Visible = True
                registrarPresupuesto.btnAgregarACarrito.Enabled = True

                registrarPresupuesto.numCantidad.Focus()
                registrarPresupuesto.Enabled = True
            Case "VENTA PRESUPUESTO"

                registrarVentaP.txtCodArticulo.Text = Convert.ToString(Producto.Prod_Id).Trim
                registrarVentaP.lblDescAticulo.Text = Producto.Descripcion.Trim.ToUpper
                registrarVentaP.lblDescAticulo.Visible = True
                registrarVentaP.btnAgregarACarrito.Enabled = True
                registrarVentaP.txtNroSerie.Text = ""
                registrarVentaP.txtNroSerie.Enabled = True


                registrarVentaP.Enabled = True
            Case "MODI OS TECNICO"
                frmAcualizarOrdenesServicioTecnico.txtCodArticulo.Text = Convert.ToString(Producto.Prod_Id).Trim
                frmAcualizarOrdenesServicioTecnico.lblDescAticulo.Text = Producto.Descripcion.Trim.ToUpper
                frmAcualizarOrdenesServicioTecnico.lblDescAticulo.Visible = True
                frmAcualizarOrdenesServicioTecnico.btnAgregarACarrito.Enabled = True
                frmAcualizarOrdenesServicioTecnico.txtNroSerie.Text = ""
                frmAcualizarOrdenesServicioTecnico.txtNroSerie.Enabled = True
                frmAcualizarOrdenesServicioTecnico.Enabled = True
            Case "SORTEO"

                generarSorteo.txtCod.Text = Producto.Prod_Id.ToString.Trim
                generarSorteo.txtNom.Text = Producto.Descripcion.Trim.ToUpper

                generarSorteo.txtCod.Enabled = False
                generarSorteo.txtNom.Enabled = False
                generarSorteo.btnConsulta.Enabled = False
                generarSorteo.Enabled = True

        End Select
        Me.Close()
    End Sub

    Private Sub grdCatalogo_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdCatalogo.DoubleClick
        Selecciona()
    End Sub
    Private Sub Salir()
        Select Case ModoAcceso
            Case "ACTUALIZA STOCK"
                actualizarStock.Enabled = True
            Case "ASIGNA VIDRIERA"
                asigVidriera.Enabled = True
            Case "VENTA INMEDIATA"
                registrarVentaI.Enabled = True
            Case "PRESUPUESTO"
                registrarPresupuesto.Enabled = True
            Case "VENTA PRESUPUESTO"
                registrarVentaP.Enabled = True
            Case "MODI OS TECNICO"
                frmAcualizarOrdenesServicioTecnico.Enabled = True
            Case "SORTEO"
                generarSorteo.Enabled = True
            Case "INFORME CATALOGO"
                informeCCatalogo.Enabled = True
        End Select
        Me.Close()
    End Sub

    Private Sub consultaCatalogo_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate
        Salir()
    End Sub

    Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
        'mejorar sistema impresion
        PrintForm1.Form = Me
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()
    End Sub
End Class